Public Module LibFunction

    Public Function KBtoMB(ByVal _KB As Double) As Double
        Dim bRet As Double
        bRet = Format(_KB / (2 ^ 20), "0")
        Return bRet
    End Function

End Module
